home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD040A.d64 / B full games B / B full games B.a7ae (.txt)
Encoding:
Commodore BASIC  |  2019-04-13  |  10.2 KB  |  53 lines
  1. 1 POKE 53280,0:POKE 53281,0:POKE 808,251
  2. 2 POKE 53265,00:PRINTCHR$(8)
  3. 3 LET V = 53248: REM -  SPRITES -
  4. 4 PRINT""
  5. 5 PRINT"[147]           R[150]I[158]CHARD BAYL[158]I[150]SS
  6. 6 [153]"           PCONTROPENOUDLY PRESEOPENNCONTTS
  7. 7 PRINT"     T[153]H[159]E COOL BIBLET TECHNO D[159]E[153]MO
  8. 8 [153]"WARNING: THIS DEMO USES STROBE FX
  9. 9 PRINT"THAT MAY BE HARMFUL FOR THOSE WHO SUFFER
  10. 10 [153]"ONFROM ANY HEALTH DISORDERS SUCH AS
  11. 11 PRINT"EPILLEPSEY. THEREFORE IF YOU SUFFER
  12. 12 [153]"THIS KIND OF CONDITION THEN I RECOMMEND
  13. 13 PRINT"THAT YOU DON'T WATCH THIS DEMO.
  14. 14 [153]"SYSOOPS, THE PREVIOUS VERSION DID NOT
  15. 15 PRINT"ALLOW THE SPRITES APPEAR PAST 255       PIXELS. THIS IS NOW SORTED.
  16. 16 [153]"OPENMUSIC ALSO BY RICHARD BAYLISS
  17. 17 PRINT"HIT SPACE TO CONTINUE":POKE 53265,27
  18. 18 GET A$: IF A$<>" " THEN 18
  19. 19 PRINT"[147]"
  20. 20 POKE 53276,255:POKE 53269,255
  21. 21 POKE 53285,11:POKE 53286,1
  22. 22 POKE V+40,3:POKE V+41,10:POKE V+42,7
  23. 23 POKE V+43,5:POKE V+44,13:POKE V+45,14
  24. 24 POKE V+46,4:POKE V+47,15:POKE V+48,3:POKE 53287,12
  25. 25 POKE 2040,128:POKE 2041,128:POKE2042,128
  26. 26 POKE 2043,128:POKE 2044,128:POKE2045,128
  27. 27 POKE 2046,128:POKE 2047,128:POKE2048,128:SYS12288
  28. 28 A = INT(255*RND(1))+1
  29. 29 B = INT(255*RND(1))+1
  30. 30 C = INT(255*RND(1))+1
  31. 31 D = INT(255*RND(1))+1
  32. 32 E = INT(255*RND(1))+1
  33. 33 F = INT(255*RND(1))+1
  34. 34 G = INT(255*RND(1))+1
  35. 35 H = INT(255*RND(1))+1
  36. 36 POKEV+00,A:POKE V+29,D:POKE V+23,G
  37. 37 POKEV+01,B
  38. 38 POKEV+02,B
  39. 39 POKEV+03,A
  40. 40 POKEV+04,C
  41. 41 POKEV+05,D
  42. 42 POKEV+06,D
  43. 43 POKEV+07,C
  44. 44 POKEV+08,E
  45. 45 POKEV+09,F
  46. 46 POKEV+11,F
  47. 47 POKEV+11,E
  48. 48 POKEV+12,G
  49. 49 POKEV+13,H
  50. 50 POKEV+14,H
  51. 51 POKEV+15,G
  52. 52 GOTO 28
  53.